EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


*tF I LE®*1]D®*STRMATCH 
SSSSSSSS TITTTTTTTT RRRRRRRR MM MM AARAAA TTTTTTITITT cccccccc HH HH 
SSSSSSSS TTTTTTTTTT RRRRRRRR MM MM AAAAAA TTTTTTTITIT Cccccccc HH HH 
SS TT RR RR MMMM MMMM AA TT cc HH HH 
SS TT RR RR MMMM MMMM AA Aa TT cc HH HH 
SS TT RR RR MM Aa Aa TT cc HH HH 
SS TT RR RR MM MM MM AA AA TT cc HH HH 
SSSSSS TT RRRRRRRR MM MM AA Aa TT cc HHHHHHHHHH 
SSSSSS TT RRRRRRRR MM MM AA Aa TT CC HHHHHHHHHH 
SS TT RR RR MM MM AAAAAAAAAA TT cc HH HH 
SS TT RR RR MM MM AAAAAAAAAA TT cc HH HH 
SS TT RR RR MM MM AA AA TT cc HH HH eeee 
SS TT RR RR MM MM AA Aa TT cc HH HH eee 
SSSSSSSS TT RR RR MM MM AA AB TT cccccccc HH HH cece 
SSSSSSSS TT RR RR MM MM AA Aa TT cccccccc HH HH eeee 
LL IIIIII SSSSSSSS 
LL III! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL II SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 
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OOOOoooooo 


OOoooo 


SoOOSOoCOSCOOOCOOSOOOSOSOOSOOOOOOOOoOO 
COOoQoooooooo 


OoOOooooooooooosoSo 


SoOooQoQoQooooooo ooooocoooeo 


NOU WN OOOO NAMES WIN $$ O OO NAME WN (OOO NAME WW OC OD NOUS WH OOONOU SE wn 


SOOoOOoOOoooooooooooooooooooooooooooooOoOoOOOOOOOOOOOOOOOOOOOOO 


SOoOSOSSSOSOSOSOOSOSOSOOSOOSOSOOSOOOOSOOOOOoOSSoS 


DVIPS EB BS BE BB EE NNN WII NINA I PO PONINPONNYNPINYPN 2 2 OS OS OS OS 


SOQCOOCOOOOCOOCOCOO OOOO CSSSSCOSOSOOSCOOOSOOOOOOoOOoOO 


PADAAAAAAARAAAAAALALALALALALA AAS E SALES RESETS SESE ETRE EERE ESSE ESE EEE ESE TST SC aS oY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
eae ro ee ee Se CORPORATION, MAYNARD, MASSACHUSETTS. 


THIS SOFTWARE IS Ag | ae UNDER A LICENSE AND MAY BE USED AND sor iee 
N_ ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
I T I E OR ANY OTHER 
Pp 


* ® 
** ® 
*® * 
*® ® 
*® ® 
: ® 
:® ® 
ie 0 NO sO : 
ie THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:e ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 76 HEREBY * 
;# TRANSFERRED. « 

* 
# THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

® 
**® ® 
*® 
** * 
** ® 
*® * 
** ® 
:* * 


AND SH NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PARRA AARAAAALAALALALASLALA LESSEE REESE SESE ARES EER REESE ES ES RR REESE EERE SERS SY 


+ 
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FACILITY: General Utility Library 
ABSTRACT: 


This routine performs the general embedded wild card matching 
algorithm. 


ENVIRONMENT: 
Runs at any access mode, AST Reentrant 
AUTHOR: Andrew C. Goldstein, CREATION DATE: 10-Aug-1979 11:36 
MODIFIED BY: 
v03-002 LEB Linda Benson 15-Dec-1983 
Change name at ap tar sag al NAME to STRSMATCH WILD 
to more correctly match intent of this routine, 
This marks version that has been incorporated into 
the RTL. Add EDIT field to module. 


v03-001 8LS0178 Benn Schreiber 13-Mar-1982 
Add interface to call as str$match_name 


v02-001 MLJ0031 Martin L. Jack, 4-Aug-1981 6:32 
Reorganize for simplicity and Speed. 


a 
es 
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SOQOQCOOCOOoOQOOOOCOOOoOoOooOoSS 


CoOooooooooo 


0000 


FW OOONAULS Wit" O0 


PE BP PN 8 A 


~ 
ooo 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


co 0000 
Wwr—o 
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EXTERNAL DECLARATIONS: 


v04-00 
iSTRM MATCH.MAR; 1 


Prevent undeclared symbols from being automatically global. 


DISABLE GLOBAL 
eEXTERNAL STRSANALYZE_S DESC R1 
EXTERNAL STRS_MATCH, STRS$_NOMATCH 


NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

PSECT DECLARATIONS: 


»-PSECT _STRSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 
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xs 


en -SBTTL STRSMATCH_WILD, general wild card matching 
; Functional Description: 
faa performs the general embedded wild card matching 


Calling Sequence: 


ret_status.wlc.v = STRSMATCH_WILD (CAND.rt.dx,PATRN.rt.dx) 
Formal Parameters: 
CAND .rt.dx Address of string descriptor - tpt string 


(The current item pereg looked 
PATRN.rt.dx Address of string Cyeet ptor for pattern string 
(The item looking for) 


DOOOOCOCOOOOOOOCOOSoSoO 


SOoOSSSCSOSOOSOSOSOSOOSOSOSOSOSOSOOOOOSOOOOOOOOoOO 


8 1 : Implicit Inputs: ; 
5 | ; none : 
000 103 : Output Parameters: : 
b6 3 : 3 none ; 
000 1 ; Implicit Out ts: : 
Oe ie bomen : 
0000 109 : Routines Called: : 
88 ; 119 : STRSANALYZE_SDESC_R1 : 
0000 Me : Routine Value: F 
0000 113; TRS_MA TCH if the strings match. : 
0000 114; STRS_NOMATCH if the strings don't match $ 
9000 118 ¢ Signals 
3 na 3 
0900 9 3 ° Errors from STRSANALYZE_SDESC : 
900 119 : Side Effects: : 
00 120 ; none ; 
00 121; 3 
ie ? 
O3FC 6 ! : -ENTRY strSmatch_wild,“*M<R2,R3,R4,R5,R6,R7,R8,R9> ; 
50 Q4 AC 00 00 : 1 § MOVL 4(AP),RO ; get first descriptor address : 
00000000'GF 16 0006 1 JSB G*STRSANALYZE -SDESC_R1 ; extract one ine length and address : 
7 7D , 5 ee 8 mova RO,-(SP) 3; save descriptor : 
50 8 AC 00 an MOVL 8(AP) ,RO ; get second descriptor address : 
nee O'GF 16 13° 130 JSB 7 gman -SDESC_R1 ; analyze second descriptor 3 
4 50 7D 19 =«+131 MOVQ RO,R4 3; set up for match algorithm : 
380 —E 7D “ 3% § MOVa (SP)+, 3 retrieve first descriptor 3 
50 00000000'8F dO 1F 1 MOVL #STRS. *NOMATCH, RO ; Assume failur ; 
6 04 ! F CLRL R6 ; Clear saved candidate count : 
$; : Main scanning pees ; 
4 07 1 : jos: ECL ; Pattern exhausted? : 
4 19 A 1 BLSS 30s ; Branch if yes 
51 5 9A C 140 MOVZBL iS )+,R1 ; Get next c aracter in pattern 
2a «5191s O02F = 141 CMPB 1,a*A'e! : Pattern specifies wild string? 
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vos-002 STREMATCH WILD, general wild card matchi ats 7 90:73:88 LIBRTL.SRCJSTRMATCH.MAR; 1 ni dy ;. 
1 14 BEQL 60$ ; Branch if yes ‘ 
A 07 ¢ 128 DECL R 3 Candidate exhausted? ; 
9 g 144 BLSS 50$ ; Branch if yes ‘ 
83 1 7 145 CMPB R1,(R3)+ ; Compare pa tern to candidate ; 
F8 1 B 128 BEQL ; Branch if pattern equals candidate ‘ 
25 4 14 CMPB R1,#*A'S' ; Pattern specifies wild character? ; 
& 1 4 148 BEQL ~=s-'108 ; Branch if yes : 
4 150 : We have detected a mismatch, or we are gut of pattern while there is ‘ 
4 151 ; candidate left. Back up to the last '*', advance a candidate character, ; 
"i ! ; and try again. : 
56 D7 «40042 «49154 208: _—sbECL RS ; Count a saved candidate character ; 
13 19 004 155 BLSS 50$ ; Branch if no saved candidate : 
5 b6 B38 1 § INCL R7 ; Set to try next character ; 
52 56 D 004 15 MOVQ R6,R2 ; Restore descriptors to backup point ; 
54 58 7D 0048 158 MOVQ RB,R4 3 Fy 
ds 11 etd 123 4 BRB 10$ ; Continue testing : 
Bnep 19] : Here when pattern is exhausted. 2 
52 D5 0080 188 S0s: TSTL Re ; Candidate exhausted? ; 
EE 12 005 164 BNEQ 20$ ; Branch if no F 
0054 165; : 
0034 196 ; Here to return. : 
50 00000000'8F 00 084 168 40s: MOVL #STRS_MATCH,RO ; Set success return : 
04 bpee 198 50$: RET 3; Return : 
003 V7) : We have detected a '*' in the pattern. Save the pointers for backtracking. : 
54 05 5¢ 138 60s: TSTL RS 3; Pattern null after ‘*'? ; 
F4 13 005 174 BEQL 40$ :; Branch if yes : 
56 52 7D 0060 175 MOVQ R2,R6 ; Save descriptors of both strings 3 
58 54 7D 006 176 mova R4,RB : 3 
CO 11 0066 £177 BRB 10$ ; Continue testing 3 
t' 178 3 
006 179 ~ END : 
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Symbol table =SEP- :18 LIBRTL.S SSTRM MATCH.MAR; 1 
STRSANALYZE_SDESC_R1 eereeeee 0 
STRSMATCH WILD 00000000 RG 1 
TCA eeekeeee 
STRS_NOMATCH eeenenee : 
pose see accesso mwe $+ 
' Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
ABS £88808 08 ( 0.) 89 { *) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
“ STRSCODE 000006 ( 104.) - at PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
woe rtecnmoe Seer meen ama amome $ 
! ; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 08 80:08 08 00:00:02.84 
pomnene processing 116 08: 0. 00:00:01.88 
71 0: 8: 0.31 00:00:02.72 
Synbol table sort 0 00:00: 8°94 Se Bo 
s 2 46 Ba 88: ee 0:00:02.54 
ed table output § 00:00:00.01 00:00:00.01 
Psect synopsis output 00:00:00.01 00:00:00.50 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 269 00:00:00.88 00:00:10.50 


The working set Limit was 900 pages. 

2203 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space at scares to hold 4 non-local and 6 Local symbols. 
179 source Lines were read in Pass 1, produci ng 1 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Macro Library name Macros defined 
“S25SSDUAZB:(SYSLIBISTARLET.MLB:2 0 itt 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:STRMATCH/OBJ=O0BJ$:STRMATCH MSRC$:STRMATCH/UPDATE=(ENHS: STRMATCH) 


= 
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